home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -in_the_mag- / pdselect / blizkick / saverom.asm < prev   
Assembly Source File  |  2000-02-16  |  756b  |  46 lines
  1. ; FILE: Source:SaveROM.ASM          REV: 3 --- Kickstart ROM saver.
  2. ; History
  3. ;  3      Now requires only KS 1.0.
  4. ;
  5.  
  6.     include    "Devpac:Gen.gs"
  7.  
  8. Main    move.l    (4).w,a6
  9.     clr.l    -1(a0,d0.l)
  10.     move.l    a0,a5
  11.     moveq    #RETURN_FAIL,d7
  12.     lea    (DosName,pc),a1
  13.     call    OldOpenLibrary
  14.     tst.l    d0
  15.     beq.b    .exit
  16.     move.l    d0,a6
  17.     moveq    #RETURN_ERROR,d7
  18.     move.l    a5,d1
  19.     move.l    #MODE_NEWFILE,d2
  20.     call    Open
  21.     move.l    d0,d6
  22.     beq.b    .closedos
  23.  
  24.     lea    $01000000,a0
  25.     move.l    (-$14,a0),d3
  26.     sub.l    d3,a0
  27.     move.l    a0,d2
  28.     move.l    d6,d1
  29.     call    Write
  30.     cmp.l    d0,d3
  31.     bne.b    .closefile
  32.     moveq    #RETURN_OK,d7
  33. .closefile    move.l    d6,d1
  34.     call    Close
  35.     tst.l    d7
  36.     beq.b    .closedos
  37.     move.l    a5,d1
  38.     call    DeleteFile
  39. .closedos    move.l    a6,a1
  40.     move.l    (4).w,a6
  41.     call    CloseLibrary
  42. .exit    move.l    d7,d0
  43.     rts
  44.  
  45. DosName    dc.b    'dos.library',0
  46.